home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / KCollection.p < prev    next >
Text File  |  2004-01-31  |  4KB  |  100 lines
  1. pTempVar <- <primitive 110 18 >
  2. <primitive 112 pTempVar 1  " values " \
  3.   #( #[ 16r05 16r20 16rA0 16r71 16r20 16rE1 16r02 16r04 16r21 16r22 16rBE \
  4.         16rF3 16rB3 16rF2 16r21 16rF3 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " select: " \
  8.   #( #[ 16r20 16r20 16r05 16r28 16rE2 16r02 16r0D 16r21 16r23 16rB5 16rF7 \
  9.         16r05 16r22 16r20 16rAB 16r23 16rD0 16rF2 16r22 16rF3 16rD7 \
  10.         16r0B 16r10 16rF3 16rF5] \
  11.     #(  )) >
  12.  
  13. <primitive 112 pTempVar 3  " removeKey:ifAbsent: " \
  14.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  15.     #( 'subclass should implement RemoveKey:ifAbsent:'  )) >
  16.  
  17. <primitive 112 pTempVar 4  " removeKey: " \
  18.   #( #[ 16r20 16r21 16rE0 16r06 16r20 16r30 16rBD 16rF2 16r21 16rF4 16rD9 \
  19.         16rF3 16rF5] \
  20.     #( 'no element associated with key'  )) >
  21.  
  22. <primitive 112 pTempVar 5  " remove: " \
  23.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  24.     #( 'object must be removed with explicit key'  )) >
  25.  
  26. <primitive 112 pTempVar 6  " keysSelect: " \
  27.   #( #[ 16r20 16r20 16r05 16r28 16rA0 16rE2 16r02 16r0E 16r21 16r23 16rAB \
  28.         16rB5 16rF7 16r05 16r22 16r20 16rAB 16r23 16rD0 16rF2 16r22 \
  29.         16rF3 16rD7 16r0B 16r10 16rF3 16rF5] \
  30.     #(  )) >
  31.  
  32. <primitive 112 pTempVar 7  " keysDo: " \
  33.   #( #[ 16r20 16rE1 16r02 16r05 16r21 16r20 16rAB 16rB5 16rF3 16rB3 16rF3 \
  34.         16rF5] \
  35.     #(  )) >
  36.  
  37. <primitive 112 pTempVar 8  " keys " \
  38.   #( #[ 16r05 16r39 16rA0 16r71 16r20 16rE1 16r02 16r04 16r21 16r22 16rBE \
  39.         16rF3 16r0B 16r21 16rF2 16r21 16rF3 16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 9  " indexOf:ifAbsent: " \
  43.   #( #[ 16r20 16rE1 16r03 16r09 16r23 16r21 16rC9 16rF7 16r03 16r20 16rAB \
  44.         16rF4 16rF3 16rB3 16rF2 16r22 16rA5 16rF3 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 10  " indexOf: " \
  48.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBD 16rF3 16rD6 16rF3 16rF5 \
  49.        ] \
  50.     #( 'indexOf element not found'  )) >
  51.  
  52. <primitive 112 pTempVar 11  " includesKey: " \
  53.   #( #[ 16r20 16r21 16rE0 16r02 16r5C 16rF4 16rD5 16rF2 16r5B 16rF3 16rF5 \
  54.        ] \
  55.     #(  )) >
  56.  
  57. <primitive 112 pTempVar 12  " collect: " \
  58.   #( #[ 16r20 16r20 16r05 16r28 16rA0 16rE2 16r02 16r0A 16r22 16r20 16rAB \
  59.         16r21 16r23 16rB5 16rD0 16rF2 16r22 16rF3 16rD7 16r0B 16r10 \
  60.         16rF3 16rF5] \
  61.     #(  )) >
  62.  
  63. <primitive 112 pTempVar 13  " binaryDo: " \
  64.   #( #[ 16r20 16rE1 16r03 16r06 16r21 16r20 16rAB 16r23 16rD3 16rF3 16rB3 \
  65.         16rF2 16r5D 16rF3 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 14  " atAll:put: " \
  69.   #( #[ 16r21 16rE1 16r03 16r05 16r20 16r23 16r22 16rD0 16rF3 16rB3 16rF2 \
  70.         16rF5] \
  71.     #(  )) >
  72.  
  73. <primitive 112 pTempVar 15  " at: " \
  74.   #( #[ 16r20 16r21 16rE0 16r0A 16r20 16r21 16rA9 16r30 16r0B 16r12 16rBD \
  75.         16rF2 16r21 16rF4 16rD5 16rF3 16rF5] \
  76.     #( ': association not found'  )) >
  77.  
  78. <primitive 112 pTempVar 16  " asDictionary " \
  79.   #( #[ 16r05 16r28 16rA0 16r71 16r20 16rE2 16r02 16r05 16r21 16r22 16r23 \
  80.         16rD0 16rF3 16r0B 16r18 16rF2 16r21 16rF3 16rF5] \
  81.     #(  )) >
  82.  
  83. <primitive 112 pTempVar 17  " addAll: " \
  84.   #( #[ 16r21 16rE2 16r02 16r05 16r20 16r22 16r23 16rD0 16rF3 16r0B 16r18 \
  85.         16rF2 16r21 16rF3 16rF5] \
  86.     #(  )) >
  87.  
  88. <primitive 112 pTempVar 18  " add: " \
  89.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  90.     #( 'Must add with explicit key'  )) >
  91.  
  92. <primitive 98 #KeyedCollection \
  93.   <primitive 97 #KeyedCollection #Collection #AmigaTalk:General/KeyedCollection.st \
  94.    #(  ) \
  95.    #( #values #select: #removeKey:ifAbsent: #removeKey: #remove:  \
  96.        #keysSelect: #keysDo: #keys #indexOf:ifAbsent: #indexOf: #includesKey: #collect:  \
  97.        #binaryDo: #atAll:put: #at: #asDictionary #addAll: #add:  ) \
  98.   pTempVar 4 9 > #ordinary >
  99.  
  100.